Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/hlp_auth/stmous/generapp.frm

Visual Basic Form | 1995-01-10 | 9.7 KB | 282 lines

VERSION 2.00
Begin Form STMouse_Form
   Caption         =   "STMOUSE Help"
   ClientHeight    =   5325
   ClientLeft      =   1125
   ClientTop       =   1035
   ClientWidth     =   5085
   ClipControls    =   0   'False
   Height          =   6015
   Left            =   1065
   LinkTopic       =   "Form1"
   ScaleHeight     =   5325
   ScaleWidth      =   5085
   Top             =   405
   Width           =   5205
   Begin STMOUSE StMouse1
      Prop6           =   "Click for About Box"
      Left            =   2400
      Top             =   3480
   End
   Begin CommandButton BTN_STMouseStop
      Caption         =   "Stop STM"
      Height          =   375
      Left            =   1920
      TabIndex        =   15
      Top             =   720
      Width           =   1215
   End
   Begin CommandButton BTN_STMouseStart
      Caption         =   "Start STM"
      Height          =   375
      Left            =   240
      TabIndex        =   14
      Top             =   720
      Width           =   1215
   End
   Begin ComboBox Combo1
      Height          =   300
      Left            =   240
      TabIndex        =   13
      Text            =   "Combo1"
      Top             =   2880
      Width           =   2175
   End
   Begin OptionButton Option3
      Caption         =   "Maybe option"
      Height          =   255
      Left            =   1200
      TabIndex        =   12
      Top             =   4320
      Width           =   1575
   End
   Begin PictureBox Picture1
      AutoSize        =   -1  'True
      ClipControls    =   0   'False
      Height          =   360
      Left            =   360
      Picture         =   GENERAPP.FRX:0000
      ScaleHeight     =   330
      ScaleWidth      =   360
      TabIndex        =   11
      Top             =   3600
      Width           =   390
   End
   Begin CheckBox Check2
      Caption         =   "That"
      Height          =   255
      Left            =   1200
      TabIndex        =   10
      Top             =   3840
      Width           =   1200
   End
   Begin CheckBox Check1
      Caption         =   "This"
      Height          =   255
      Left            =   1200
      TabIndex        =   9
      Top             =   3360
      Width           =   1200
   End
   Begin Frame Frame1
      Caption         =   "Do it now"
      Height          =   1215
      Left            =   3000
      TabIndex        =   6
      Top             =   3120
      Width           =   1695
      Begin OptionButton Option2
         Caption         =   "No"
         Height          =   255
         Left            =   240
         TabIndex        =   8
         Top             =   720
         Width           =   1000
      End
      Begin OptionButton Option1
         Caption         =   "Yes"
         Height          =   255
         Left            =   240
         TabIndex        =   7
         Top             =   360
         Width           =   1000
      End
   End
   Begin TextBox TXT_Result
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Text            =   "Status output"
      Top             =   4800
      Width           =   4815
   End
   Begin TextBox TXT_KeyString
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Text            =   "This is a popup message to display in the window. The message can be of long length, or it can be short."
      Top             =   1560
      Width           =   4815
   End
   Begin CommandButton BTN_Exit
      Caption         =   "Exit"
      Height          =   375
      Left            =   3600
      TabIndex        =   1
      Top             =   720
      Width           =   1215
   End
   Begin TextBox TXT_SearchString
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Text            =   "Dawg"
      Top             =   2280
      Width           =   4815
   End
   Begin Label Label2
      Alignment       =   2  'Center
      Caption         =   "Click ""Start STM"" and move mouse over a control to display the status line help text for."
      Height          =   375
      Left            =   240
      TabIndex        =   16
      Top             =   120
      Width           =   4575
   End
   Begin Label Label3
      Alignment       =   2  'Center
      Caption         =   "Search String"
      Height          =   255
      Left            =   120
      TabIndex        =   4
      Top             =   2040
      Width           =   4815
   End
   Begin Label Label1
      Alignment       =   2  'Center
      Caption         =   "Key String"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   1320
      Width           =   4815
   End
   Begin Menu nmu_File
      Caption         =   "&File"
      Begin Menu mnu_Exit
         Caption         =   "&Exit"
      End
   End
   Begin Menu mnu_Edit
      Caption         =   "&Edit"
      Begin Menu mnu_Cut
         Caption         =   "Cu&t"
      End
      Begin Menu mnu_Copy
         Caption         =   "&Copy"
      End
      Begin Menu mnu_Paste
         Caption         =   "&Paste"
      End
      Begin Menu mnu_submenu
         Caption         =   "SubMenu"
         Begin Menu mnu_submenu1
            Caption         =   "SubMenu 1"
         End
         Begin Menu mnu_submenu2
            Caption         =   "SubMenu 2"
         End
      End
   End
   Begin Menu mnu_help
      Caption         =   "&Help"
      Begin Menu mnu_HelpBalloons
         Caption         =   "Help &Balloons"
      End
   End
Option Explicit
' Declare statements for utility functions included in STMOUSE.VBX
Declare Function Hwnd2ControlTabIndex Lib "STMOUSE.VBX" (ByVal hwndControl%) As Integer
Declare Function Hwnd2CtlName Lib "STMOUSE.VBX" (ByVal hwndControl%) As String
Declare Function Hwnd2HelpContextID Lib "STMOUSE.VBX" (ByVal hwndControl%) As Long
Declare Function Hwnd2TagText Lib "STMOUSE.VBX" (ByVal hwndControl%) As String
Sub BTN_Exit_Click ()
    mnu_Exit_Click
End Sub
Sub BTN_STMouseStart_Click ()
    ' stmouse can also be started
    ' via button or menu action
    STMouse1.action = 60 'start
End Sub
Sub BTN_STMouseStop_Click ()
    STMouse1.action = 61 ' stmouse stop
End Sub
Sub Form_Load ()
    'stmouse can be started in the form load event
    STMouse1.action = 60 'start
End Sub
Sub Form_Resize ()
    If Me.WindowState = 0 Then
        Me.Height = 6015
        Me.Width = 5175
        Me.Top = 0
        Me.Left = 0
    End If
End Sub
Sub mnu_Exit_Click ()
    End
End Sub
Sub StMouse1_StMouseClick (hwndAtMouse As Integer)
' PURPOSE:  hwndAtMouse is the control the mouse is over
' COMMENTS: pass back the help text
'           shows how to programmatcially end a session
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Msg As String
    If Me.hWnd = hwndAtMouse Then
        TXT_Result.Text = "Mouse over main form"
        Exit Sub
    End If
    ''use utility routines to retieve help text from properties
    TXT_Result.Text = Hwnd2CtlName(hwndAtMouse) + " ... hwndAtMouse = " + Hex$(hwndAtMouse)
    Exit Sub
    '' Use the following alternate technique to place text
    Select Case hwndAtMouse
        Case Me.hWnd
            ' if you want to blank the status line
            ' when the the mouse moves off a control
            ' add this line here
            TXT_Result.Text = ""
        Case BTN_StMouseStart.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control BTN_STMouseStart."
        Case BTN_STMouseStop.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control BTN_STMouseStop."
        Case BTN_Exit.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control BTN_Exit."
        Case TXT_KeyString.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control TXT_KeyString."
        Case TXT_SearchString.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control TXT_SearchString."
        Case TXT_Result.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control TXT_Result."
        Case Picture1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control Picture1."
        Case Check1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control Check1."
        Case Check2.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control Check2."
        Case Frame1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control Frame1."
        Case Option1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control Option1."
        Case Option2.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control Option2."
        Case Option3.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control Option3."
        Case Combo1.hWnd
            TXT_Result.Text = "The hwndAtMouse = " + Hex$(hwndAtMouse) + "The mouse is over the control Combo1."
        Case Else

        End Select

End Sub